home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm2 / arfnwsb1.lha / Install_Newsed&Arfir next >
Text File  |  1995-07-28  |  2KB  |  111 lines
  1. ;Installer For Newsed3 & Arfir
  2. ;
  3. ;©Martin Hunt 1995
  4. ;
  5. ;
  6.  
  7.  
  8. (set @defaultdest
  9.    (askdir
  10.        (prompt "Where do you want to install Arfir and Newsed")
  11.        (help @askdir-help)
  12.        (default "amitcp:bin")
  13.    )
  14. )
  15.  
  16. (copyfiles
  17.    (prompt "Copying Files To " @defaultdest )
  18.    (help @copyfiles-help)
  19.    (source "mainfiles/")
  20.    (all)
  21.    (dest @defaultdest)
  22.    (infos)
  23. )
  24.  
  25. (set arfirdest
  26.    (askdir
  27.        (prompt "Where do you want to install the postnews scripts?")
  28.        (help @askdir-help)
  29.        (default "amitcp:bin")
  30.    )
  31. )
  32.  
  33. (copyfiles
  34.    (prompt "Copying Files To " arfirdest )
  35.    (help @copyfiles-help)
  36.    (source "bin/")
  37.    (all)
  38.    (dest arfirdest)
  39.    (confirm)
  40.    (infos)
  41. )
  42.  
  43. (set docs
  44.    (askdir
  45.        (prompt "Where do you want the doc files to be installed?")
  46.        (help @askdir-help)
  47.        (default "amitcp:docs")
  48.    )
  49. )
  50.  
  51. (copyfiles
  52.  (prompt "Copying Docs To "docs)
  53.    (help @copyfiles-help)
  54.    (source "docs")
  55.    (all)
  56.    (dest docs)
  57.    (infos)
  58.    (confirm)
  59. )
  60.  
  61. (copylib
  62.    (prompt "Copying Apig.Library to Libs:" )
  63.    (help @copyfiles-help)
  64.    (source "Libs/apig.library")
  65.    (dest "Libs:")
  66.    (infos)
  67.    (confirm)
  68. )
  69. (copylib
  70.    (prompt "Copying rexxsupport.library to Libs:" )
  71.    (help @copyfiles-help)
  72.    (source "Libs/rexxsupport.library")
  73.    (dest "Libs:")
  74.    (infos)
  75.    (confirm)
  76. )
  77.  
  78. (copyfiles
  79.  (prompt "Copying Docs To "docs)
  80.    (help @copyfiles-help)
  81.    (source "register.txt")
  82.    (dest "t:")
  83. )
  84.  
  85. (copyfiles
  86.  (prompt "Copying Docs To "docs)
  87.    (help @copyfiles-help)
  88.    (source "bin/postnews.doc")
  89.    (dest "t:")
  90. )
  91.  
  92. (copyfiles
  93.  (prompt "Copying Docs To "docs)
  94.    (help @copyfiles-help)
  95.    (source "sys:utilities/more")
  96.    (dest "ram:")
  97. )
  98.  
  99. (run (cat "run ram:more") (tackon "t:" "postnews.doc") (PROMPT "Display Postnews.doc?") (HELP "Not much help, am I") (SAFE) (CONFIRM))
  100. (message "This package is Shareware, please read the following and register if you use this package regularly")
  101. (run (cat "run ram:more") (tackon "t:" "register.txt") (SAFE))
  102.  
  103. (copyfiles
  104.    (prompt "Copying Files To " arfirdest )
  105.    (help @copyfiles-help)
  106.    (source "bin/sendnews")
  107.    (dest "uuspool:")
  108.    (infos)
  109. )
  110.  
  111.